'判断工作表是否存在
Function sheetIsExist(shtName) As Boolean
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = Worksheets(shtName)
    sheetIsExist = (Err = 0)
    Err.Clear: On Error GoTo 0
End Function